;solution for euler72

(defun solve-euler72 ()
	(return-from solve-euler72)
	(let ((uniques (make-array 10 :fill-pointer 0 :adjustable t)))
		(loop for d from 2 to 1000000 do
			(loop for n from 1 to (- d 1) do
				(when (= 0 (count (/ n d) uniques))
					(vector-push-extend (/ n d) uniques (length uniques)))))
		(format t "Euler 72: " (length uniques))))

